home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / hwgpostbeta6.lha / HWGPOST / init.ps < prev    next >
Encoding:
Text File  |  1994-11-30  |  3.0 KB  |  126 lines
  1. %!
  2. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  3. % HWGPOST >= V22.25 initialisation file
  4. %
  5. % $Id: init.ps,v 2.16 1994/11/30 16:04:56 heinz Exp $
  6. %
  7. % HWGPOST ©1993,1994 Heinz Wrobel, for Joan Thuesen
  8. %
  9. % Based loosely on Post V1.7 (C) Adrian Aylward 1989, 1991
  10. %
  11. % You may freely copy, use, and modify this file
  12. %
  13. % This file should be run before most programs
  14. % Developers: Do NOT run this file with job server flags like PSFLAGSAVE!
  15. %
  16. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  17.  
  18. % A dummy status dictionary
  19. false setglobal
  20. statusdict begin
  21. /waittimeout 0 def
  22. /setdefaulttimeouts {pop pop pop} bind def
  23. end
  24.  
  25. % We need global VM for modifications to systemdict!
  26. currentglobal true setglobal
  27. systemdict begin
  28.  
  29. % Ignore CTRL/D, CTRL/L, and simple CRs
  30.  
  31. <04> cvn {} def
  32. <0c> cvn {} def
  33. <0d> cvn {} def
  34.  
  35. % Dummies for ugly PostScript code
  36.  
  37. /setjobtimeout { pop } bind def
  38. /letter {} def
  39.  
  40. % Ok, lets return to the previous vm mode and make the systemdict readonly
  41. end
  42. systemdict readonly pop
  43. setglobal
  44.  
  45. %
  46. % We try to register all our resources on disk now. This speeds up
  47. % access.
  48. %
  49. % We look for the file "HWGPOSTResources" and execute it if it is available
  50. % If not, we check for it as "POST:HWGPOSTResources", too.
  51. % If this fails again, we can't do anything reasonable about it, so we don't.
  52. %
  53. (HWGPOSTResources) dup status
  54. {
  55.     pop pop pop pop true
  56. }
  57. {
  58.     pop
  59.     (%POST%HWGPOSTResources) dup status
  60.     {
  61.         pop pop pop pop true
  62.     }
  63.     {
  64.         pop false
  65.     }
  66.     ifelse
  67. }
  68. ifelse
  69. {
  70.     currentglobal exch true setglobal
  71.     run
  72.     setglobal
  73. }
  74. if
  75.  
  76. %
  77. % To keep compatibility with the old post.library I need to have
  78. % the renderband commands available. I don't want them to "clutter"
  79. % the PS name space by default, so they are built in as "@currentband"
  80. % and "@setband" and need to be redefined for "old" SW.
  81. %
  82. % I encourage any user of HWGPOST to use the "@" names for these operators
  83. % as I might drop support for the old names in init.ps in the future.
  84. %
  85. /currentband /@currentband load def
  86. /setband /@setband load def
  87.  
  88. %
  89. % Even more ugly compatibility magic. Most people won't need this. Those who
  90. % do should refer to HWGPOSTlib.doc and hopefully find a way to avoid it.
  91. %
  92. systemdict /@callextfunc known {/callextfunc /@callextfunc load def} if
  93.  
  94. %
  95. % Due to many requests the default font handling of stone age post is
  96. % back in disguise. If you don't want it, just throw out the definitions
  97. % below.
  98.  
  99. % Our DefaultFont prints out big dots ...
  100. %
  101. /@DefaultFont
  102. <<
  103. /FontName /@DefaultFont
  104. /FontMatrix [0.001 0 0 0.001 0 0]
  105. /FontType 3
  106. /FontBBox [0 -300 500 700]
  107. /Encoding StandardEncoding
  108. /BuildChar
  109. { pop pop
  110.   500 0 50 0 450 400 setcachedevice
  111.   250 200 200 0 360 arc fill
  112. } bind
  113. /Painttype 0
  114. >>
  115. definefont pop
  116.  
  117. %
  118. % Heavy magic to make the font lookup mechanism respect your choice of
  119. % a default font. If you want another font, you simply specify the name
  120. % of the font.
  121. %
  122. /@DefaultFontName /@DefaultFont def
  123. %/@DefaultFontName /Courier def
  124.  
  125. %%% EOT %%%
  126.